home *** CD-ROM | disk | FTP | other *** search
/ Executor 2.0 / executorv2.0.iso / pc / dos / extra / library / demoware / asymptot.hqx / Asymptote 1.1 Demo / Scripts / Manual Examples / graphpanel < prev    next >
Encoding:
Text File  |  1994-06-17  |  541 b   |  17 lines
  1. % graphpanel left right bottom top num_of_panels panel_number
  2.  
  3. % DESCRIPTION:
  4. %     Divide a rectangle into a set of vertical panels
  5. %     and set the graph frame to a particular panel
  6.  
  7. % ARGUMENTS:
  8. %     left,right        ± a rectangle that encloses all of the
  9. %        bottom,top            panels
  10. %        num_of_panels    ± the number of vertical panels
  11. %        panel_number    ± the desired panel number (1 = bottom)
  12.  
  13. set panel_height &4 &3 - &5 /
  14. set panel_bottom &6 1 - panel_height * &3 +
  15. set panel_top panel_bottom panel_height +
  16.  
  17. graphframe &1 &2 panel_bottom panel_top